home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb02612.lsp < prev    next >
Lisp/Scheme  |  1998-03-15  |  15KB  |  378 lines
  1. ;=============026.12 SCHARNIER PA, rechts
  2.  
  3.  
  4. (defun C:02612D1 (/ P1 Wi)
  5.    (EAITDBL "0002612")
  6.    (princ (strcat "\n\n" EAITbez1))
  7.    (EAITvari)
  8.    (EAITvars)
  9.    (setvar "ORTHOMODE" 0)
  10.    (EAITbpt nil nil nil)
  11.    (setq P1 (getpoint))
  12.    (if (= P1 nil)(setq P1 (EAITrpt)))
  13.    (setvar "OSMODE" 0)
  14.    (setvar "ORTHOMODE" 1)
  15.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  16.    (command EAITege (strcat EAITpfn "02612d1") P1 "" "" EAITofkei pause)
  17.  
  18.    (setq Wi (EAITbw))
  19.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 320)) 5) "" "" ""
  20.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  21.    )
  22.    (EAITDBL "0002628")
  23.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 352)) 19.5) "" "" ""
  24.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  25.    )
  26.  
  27.    (EAITvarz2)
  28.    (princ)
  29. )
  30.  
  31.  
  32.  
  33. (defun C:02612S1 (/ P1 Wi)
  34.    (EAITDBL "0002612")
  35.    (princ (strcat "\n\n" EAITbez1))
  36.    (EAITvari)
  37.    (EAITvars)
  38.    (setvar "ORTHOMODE" 0)
  39.    (EAITbpt nil nil nil)
  40.    (setq P1 (getpoint))
  41.    (if (= P1 nil)(setq P1 (EAITrpt)))
  42.    (setvar "OSMODE" 0)
  43.    (setvar "ORTHOMODE" 1)
  44.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  45.    (command EAITege (strcat EAITpfn "02612s1") P1 "" "" EAITofkei pause)
  46.  
  47.    (setq Wi (EAITbw))
  48.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 85)) 16) "" "" ""
  49.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  50.    )
  51.    (EAITDBL "0002628")
  52.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 65)) 28) "" "" ""
  53.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  54.    )
  55.  
  56.    (EAITvarz2)
  57.    (princ)
  58. )
  59.  
  60.  
  61.  
  62. (defun C:02612S2 (/ P1 Wi)
  63.    (EAITDBL "0002612")
  64.    (princ (strcat "\n\n" EAITbez1))
  65.    (EAITvari)
  66.    (EAITvars)
  67.    (setvar "ORTHOMODE" 0)
  68.    (EAITbpt nil nil nil)
  69.    (setq P1 (getpoint))
  70.    (if (= P1 nil)(setq P1 (EAITrpt)))
  71.    (setvar "OSMODE" 0)
  72.    (setvar "ORTHOMODE" 1)
  73.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  74.    (command EAITege (strcat EAITpfn "02612s2") P1 "" "" EAITofkei pause)
  75.  
  76.    (setq Wi (EAITbw))
  77.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 275)) 16) "" "" ""
  78.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  79.    )
  80.    (EAITDBL "0002628")
  81.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 295)) 28) "" "" ""
  82.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  83.    )
  84.  
  85.    (EAITvarz2)
  86.    (princ)
  87. )
  88.  
  89.  
  90.  
  91.  
  92. (defun C:02612V1 (/ P1 Wi)
  93.    (EAITDBL "0002612")
  94.    (princ (strcat "\n\n" EAITbez1))
  95.    (EAITvari)
  96.    (EAITvars)
  97.    (setvar "ORTHOMODE" 0)
  98.    (EAITbpt nil nil nil)
  99.    (setq P1 (getpoint))
  100.    (if (= P1 nil)(setq P1 (EAITrpt)))
  101.    (setvar "OSMODE" 0)
  102.    (setvar "ORTHOMODE" 1)
  103.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  104.    (command EAITege (strcat EAITpfn "02612v1") P1 "" "" EAITofkei pause)
  105.  
  106.    (setq Wi (EAITbw))
  107.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 320)) 5.5) "" "" ""
  108.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  109.    )
  110.    (EAITDBL "0002628")
  111.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 330)) 23.5) "" "" ""
  112.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  113.    )
  114.  
  115.    (EAITvarz2)
  116.    (princ)
  117. )
  118.  
  119.  
  120.  
  121.  
  122. (defun C:02612Z1 (/ P1 P2 L n i Wi Wix LGes P)
  123.    (EAITDBL "0002612")
  124.    (princ (strcat "\n\n" EAITbez1))
  125.    (EAITvari)
  126.    (EAITvars)
  127.    (setvar "ORTHOMODE" 1)
  128.    (setvar "OSMODE" 9)
  129.    (setq L (- EAITlmin 1))
  130.    (while (< L EAITlmin)
  131.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "006")" "(EAITmg "mb_mld10" "015")))    ;Startpunkt (Return = relativ):
  132.       (setq P1 (getpoint))
  133.       (if (= P1 nil)(setq P1 (EAITrpt)))
  134.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "007")" "(EAITmg "mb_mld10" "015")))    ;Endpunkt (Return = relativ): 
  135.       (setq P2 (getpoint P1))
  136.       (initget 4 "?")
  137.       (EAITmsg "mb_mld12" "\n" "005" " ")            ;Anzahl der Scharniere (2,3,...,?): <2>
  138.       (setq n (getint))
  139.       (setq Wi   (angle P1 P2)     )
  140.       (setq Wix  (- (EAITbig Wi) 90)   )
  141.       (setq LGes (distance P1 P2)  )
  142.       (cond ((= n nil)(setq n 2))
  143.             ((= n  0 )(setq n 2))
  144.             ((= n "?")(progn
  145.                           (setq n (1+ (fix (+ (/ LGes 600) 0.5))))
  146.                           (if (< n 2)(setq n 2))
  147.                       )
  148.             )
  149.       )
  150.       (setq L    (/ (- LGes 160)(float (- n 1))))
  151.       (if (< L EAITlmin)(progn (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "007" " ")))  
  152.                        ;Ungültige Eingabe: es werden min. 32mm je Scharnier benötigt!
  153.    )
  154.    (setq P (polar P1 Wi 80) )
  155.    (setvar "ORTHOMODE" 0)
  156.    (setvar "OSMODE" 0)
  157.    (repeat n
  158.          (EAITDBL "0002612")
  159.          (command EAITege (strcat EAITpfn "02612vz") P "" "" EAITofkei Wix
  160.                   EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 72)) 13.5) "" "" Wix
  161.                            EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  162.          )
  163.          (EAITDBL "0002628")
  164.       (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 11)) 20.5) "" "" Wix
  165.                            EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  166.          )
  167.          (setq P (polar P Wi L))
  168.    )
  169.    (EAITvarz2)
  170.    (princ)
  171. )
  172.  
  173.  
  174.  
  175.  
  176. (defun C:02612Z2 (/ P1 P2 L n i Wi Wix LGes P)
  177.    (EAITDBL "0002612")
  178.    (princ (strcat "\n\n" EAITbez1))
  179.    (EAITvari)
  180.    (EAITvars)
  181.    (setvar "ORTHOMODE" 1)
  182.    (setvar "OSMODE" 9)
  183.    (setq L (- EAITlmin 1))
  184.    (while (< L EAITlmin)
  185.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "006")" "(EAITmg "mb_mld10" "015")))    ;Startpunkt (Return = relativ):
  186.       (setq P1 (getpoint))
  187.       (if (= P1 nil)(setq P1 (EAITrpt)))
  188.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "007")" "(EAITmg "mb_mld10" "015")))    ;Endpunkt (Return = relativ): 
  189.       (setq P2 (getpoint P1))
  190.       (initget 4 "?")
  191.       (EAITmsg "mb_mld12" "\n" "005" " ")            ;Anzahl der Scharniere (2,3,...,?): <2>
  192.       (setq n (getint))
  193.       (setq Wi   (angle P1 P2)     )
  194.       (setq Wix  (- (EAITbig Wi) 90)   )
  195.       (setq LGes (distance P1 P2)  )
  196.       (cond ((= n nil)(setq n 2))
  197.             ((= n  0 )(setq n 2))
  198.             ((= n "?")(progn
  199.                           (setq n (1+ (fix (+ (/ LGes 600) 0.5))))
  200.                           (if (< n 2)(setq n 2))
  201.                       )
  202.             )
  203.       )
  204.       (setq L    (/ (- LGes 160)(float (- n 1))))
  205.       (if (< L EAITlmin)(progn (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "007" " ")))  
  206.                        ;Ungültige Eingabe: es werden min. 32mm je Scharnier benötigt!
  207.    )
  208.    (setq P    (polar P1 Wi 80) )
  209.    (setvar "ORTHOMODE" 0)
  210.    (setvar "OSMODE" 0)
  211.    (setq i 1)
  212.    (repeat n
  213.          (if (< i n)
  214.             (progn (command EAITege (strcat EAITpfn "02612sz") P "" "" EAITofkei Wix)
  215.                    (EAITDBL "0002612")
  216.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 40)) 15) "" "" Wix
  217.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  218.                     )
  219.                     (EAITDBL "0002628")
  220.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (- Wi (EAITgib 90)) 1.5) "" "" Wix
  221.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  222.                     )
  223.             )
  224.          (progn (command EAITege (strcat EAITpfn "02612sz") P "" "" EAITofkei Wix)
  225.                    (EAITDBL "0002612")
  226.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 40)) 15) "" "" Wix
  227.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  228.                     )  
  229.                     (EAITDBL "0002628")
  230.                     (command EAITege (strcat EAITpfn "EAITinfo") (polar P (- Wi (EAITgib 90)) 1.5) "" "" Wix
  231.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  232.                     )
  233.          )
  234.          )
  235.          (setq P (polar P Wi L)
  236.                i (1+ i))
  237.    )
  238.    (EAITvarz2)
  239.    (princ)
  240. )
  241.  
  242.  
  243.  
  244. (defun C:02612Z3 (/ P1 P2 L n i Wi Wix LGes P)
  245.    (EAITDBL "0002612")
  246.    (princ (strcat "\n\n" EAITbez1))
  247.    (EAITvari)
  248.    (EAITvars)
  249.    (setvar "ORTHOMODE" 1)
  250.    (setvar "OSMODE" 9)
  251.    (setq L (- EAITlmin 1))
  252.    (while (< L EAITlmin)
  253.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "006")" "(EAITmg "mb_mld10" "015")))    ;Startpunkt (Return = relativ):
  254.       (setq P1 (getpoint))
  255.       (if (= P1 nil)(setq P1 (EAITrpt)))
  256.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "007")" "(EAITmg "mb_mld10" "015")))    ;Endpunkt (Return = relativ): 
  257.       (setq P2 (getpoint P1))
  258.       (initget 4 "?")
  259.       (EAITmsg "mb_mld12" "\n" "005" " ")            ;Anzahl der Scharniere (2,3,...,?): <2>
  260.       (setq n (getint))
  261.       (setq Wi   (angle P1 P2)     )
  262.       (setq Wix  (- (EAITbig Wi) 90)   )
  263.       (setq LGes (distance P1 P2)  )
  264.       (cond ((= n nil)(setq n 2))
  265.             ((= n  0 )(setq n 2))
  266.             ((= n "?")(progn
  267.                           (setq n (1+ (fix (+ (/ LGes 600) 0.5))))
  268.                           (if (< n 2)(setq n 2))
  269.                       )
  270.             )
  271.       )
  272.       (setq L    (/ (- LGes 160)(float (- n 1))))
  273.       (if (< L EAITlmin)(progn (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "007" " ")))  
  274.                        ;Ungültige Eingabe: es werden min. 32mm je Scharnier benötigt!
  275.    )
  276.    (setq P    (polar P1 Wi 80) )
  277.    (setvar "ORTHOMODE" 0)
  278.    (setvar "OSMODE" 0)
  279.    (setq i 1)
  280.    (repeat n
  281.          (if (< i n)
  282.             (progn (command EAITege (strcat EAITpfn "02610vz") P "" "" EAITofkei Wix)
  283.                     (EAITDBL "0002610")
  284.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 72)) 13.5) "" "" Wix
  285.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  286.                     )
  287.                     (EAITDBL "0002628")
  288.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 11)) 20.5) "" "" Wix
  289.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  290.                     )
  291.          )
  292.             (progn (command EAITege (strcat EAITpfn "02612vz") P "" "" EAITofkei Wix)
  293.                     (EAITDBL "0002612")
  294.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 72)) 13.5) "" "" Wix
  295.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  296.                     )
  297.                     (EAITDBL "0002628")
  298.                     (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 11)) 20.5) "" "" Wix
  299.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  300.                     )
  301.          )
  302.          )
  303.          (setq P (polar P Wi L)
  304.                i (1+ i))
  305.    )
  306.    (EAITvarz2)
  307.    (princ)
  308. )
  309.  
  310.  
  311.  
  312. (defun C:02612Z4 (/ P1 P2 L n i Wi Wix LGes P)
  313.    (EAITDBL "0002612")
  314.    (princ (strcat "\n\n" EAITbez1))
  315.    (EAITvari)
  316.    (EAITvars)
  317.    (setvar "ORTHOMODE" 1)
  318.    (setvar "OSMODE" 9)
  319.    (setq L (- EAITlmin 1))
  320.    (while (< L EAITlmin)
  321.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "006")" "(EAITmg "mb_mld10" "015")))    ;Startpunkt (Return = relativ):
  322.       (setq P1 (getpoint))
  323.       (if (= P1 nil)(setq P1 (EAITrpt)))
  324.       (EAITbpt nil nil (strcat (EAITmg "mb_mld10" "007")" "(EAITmg "mb_mld10" "015")))    ;Endpunkt (Return = relativ): 
  325.       (setq P2 (getpoint P1))
  326.       (initget 4 "?")
  327.       (EAITmsg "mb_mld12" "\n" "005" " ")            ;Anzahl der Scharniere (2,3,...,?): <2>
  328.       (setq n (getint))
  329.       (setq Wi   (angle P1 P2)     )
  330.       (setq Wix  (- (EAITbig Wi) 90)   )
  331.       (setq LGes (distance P1 P2)  )
  332.       (cond ((= n nil)(setq n 2))
  333.             ((= n  0 )(setq n 2))
  334.             ((= n "?")(progn
  335.                           (setq n (1+ (fix (+ (/ LGes 600) 0.5))))
  336.                           (if (< n 2)(setq n 2))
  337.                       )
  338.             )
  339.       )
  340.       (setq L    (/ (- LGes 160)(float (- n 1))))
  341.       (if (< L EAITlmin)(progn (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "007" " ")))  
  342.                        ;Ungültige Eingabe: es werden min. 32mm je Scharnier benötigt!
  343.    )
  344.    (setq P    (polar P1 Wi 80) )
  345.    (setvar "ORTHOMODE" 0)
  346.    (setvar "OSMODE" 0)
  347.    (setq i 1)
  348.    (repeat n
  349.          (if (< i n)
  350.             (progn (command EAITege (strcat EAITpfn "02610sz") P "" "" EAITofkei Wix)
  351.                     (EAITDBL "0002610")
  352.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 40)) 15) "" "" Wix
  353.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  354.                     )
  355.                     (EAITDBL "0002628")
  356.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (- Wi (EAITgib 90)) 1.5) "" "" Wix
  357.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  358.                     )
  359.          )
  360.             (progn (command EAITege (strcat EAITpfn "02612sz") P "" "" EAITofkei Wix)
  361.                    (EAITDBL "0002612")
  362.                  (command EAITege (strcat EAITpfn "EAITinfo") (polar P (+ (- Wi (EAITgib 90)) (EAITgib 40)) 15) "" "" Wix
  363.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  364.                     )
  365.                     (EAITDBL "0002628")
  366.                     (command EAITege (strcat EAITpfn "EAITinfo") (polar P (- Wi (EAITgib 90)) 1.5) "" "" Wix
  367.                                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  368.                     )
  369.          )
  370.          )
  371.          (setq P (polar P Wi L)
  372.                i (1+ i))
  373.    )
  374.    (EAITvarz2)
  375.    (princ)
  376. )
  377. (princ)
  378.